home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / program / vbkontrol.exe / VBDLL15D.ZIP / CLIENT.BA_ / CLIENT.BA
Text File  |  1995-03-02  |  1KB  |  52 lines
  1. Declare Function GetPrivateProfileString Lib "Kernel" (ByVal sect$, ByVal ent$, ByVal def$, ByVal buff$, ByVal ln%, ByVal fname$) As Integer
  2. Global ServerPath As String
  3. Global DesignEnv  As Integer
  4.  
  5. Type TypeTestType
  6.     fnd As Integer
  7.     lng As Long
  8.     sng As Single
  9.     rl As Double
  10.     st As String
  11.     fnd2 As Integer
  12.     lng2 As Long
  13.     sng2 As Single
  14.     rl2 As Double
  15.     st2 As String
  16.     stlen As String * 10
  17.     StToDate As Variant
  18.     DateToSt As Variant
  19. End Type
  20.  
  21. Type TASKENTRY
  22.     dwSize As Long
  23.     htask As Integer
  24.     hTaskParent As Integer
  25.     hInst As Integer
  26.     hModule As Integer
  27.     wSS As Integer
  28.     wSP As Integer
  29.     wStackTop As Integer
  30.     wStackMinimum As Integer
  31.     wStackBottom As Integer
  32.     wcEvents As Integer
  33.     hQueue As Integer
  34.     szModule As String * 10
  35.     wPSPOffset As Integer
  36.     hNext As Integer
  37. End Type
  38.  
  39. Declare Function TaskFindHandle Lib "toolhelp.dll" (tent As TASKENTRY, ByVal htask%) As Integer
  40. Declare Function GetCurrentTask Lib "Kernel" () As Integer
  41.  
  42. Sub main ()
  43.     Dim sz As String * 256
  44.     uLen% = GetPrivateProfileString("General", "InstallPath", "", sz, Len(sz), "VBDLLCTL.INI")
  45.     ServerPath = Trim$(Left$(sz, uLen%))
  46.     If Right$(ServerPath, 1) <> "\" Then
  47.     ServerPath = ServerPath + "\"
  48.     End If
  49.     form1.Show
  50. End Sub
  51.  
  52.